home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / workbench werkzeuge / preference programme / npp / install < prev    next >
Text File  |  1996-04-07  |  2KB  |  96 lines
  1.  
  2. ; $VER NewPalettePrefs_Evaluation-Installation 1.00 by Jens Lorenz
  3.  
  4. (set userlev (user 1))
  5. (message (cat "Welcome to NewPalette-Prefs !\n"
  6.               "© by USD `95\n\n"
  7.               "Programming    :              Henry Röhricht\n"
  8.               "German docs    :               Thomas Krause\n"
  9.               "English docs   :                 Jens Lorenz\n"
  10.               "Icons          :  Kai-Uwe Krause  (THANKS !)\n"
  11.               "Installation   :                 Jens Lorenz\n\n\n\n"
  12.               "Read the docs for more details !"
  13.          )
  14. )
  15. (user userlev)
  16.  
  17. (if (= (exists "LIBS:iff.library") 1)
  18.  (
  19.   (protect "LIBS:iff.library" "+w +d")
  20.  )
  21.  (
  22.   (working "")
  23.  )
  24. )
  25.  
  26. (run "IPV USD_Logo DELAY=50")
  27.  
  28. (copylib
  29.  (prompt "Copying IFF-Library ...")
  30.  (help @copylib-help)
  31.  (source (cat (pathonly @icon) "/libs/iff.library"))
  32.  (dest "LIBS:")
  33. )
  34.  
  35. (set @default-dest
  36.     (askdir
  37.      (prompt "Please select your Prefs-drawer")
  38.      (help @askdir-help)
  39.      (default "SYS:Prefs")
  40.     )
  41. )
  42.  
  43. (user 1)
  44. (set lang
  45.     (askchoice
  46.      (prompt "Please select the language which you want to install")
  47.      (help @askchoice-help)
  48.      (choices "English" "Deutsch")
  49.     )
  50. )
  51. (user userlev)
  52.  
  53. (copyfiles
  54.  (prompt "Copying the Prefs-program ...")
  55.  (help @copyfiles-help)
  56.  (source (pathonly @icon))
  57.  (dest @default-dest)
  58.  (infos)
  59.  (choices "NewPalette")
  60. )
  61.  
  62. (set docdest
  63.  (askdir
  64.   (prompt "Please select the drawer to copy the docs to.")
  65.   (help @askdir-help)
  66.   (default (cat @default-dest "/NewPaletteDocs"))
  67.   (newpath)
  68.  )
  69. )
  70.  
  71. (copyfiles
  72.  (prompt "Copying the docs")
  73.  (help @copyfiles-help)
  74.  (source (pathonly @icon))
  75.  (dest docdest)
  76.  (choices "IPV" (select lang "NewPalette_E.guide" "NewPalette_D.guide") (select lang "legal_stuff" "Rechtliches") (select lang "registration_form" "Bestellformular") (select lang "NewPalette_E.pic" "NewPalette_D.pic"))
  77.  (infos)
  78. )
  79.  
  80.  
  81. (if (= lang 1)
  82.     (
  83.      (copyfiles
  84.       (prompt "Kopiere deutschen Catalog ...")
  85.       (help @copyfiles-help)
  86.       (source (pathonly @icon))
  87.       (dest "LOCALE:Catalogs/deutsch")
  88.       (choices "NewPrefs.catalog")
  89.      )
  90.     )
  91.     (
  92.      (working "")
  93.     )
  94. )
  95.  
  96.